home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)gc.d64 / mommy slither.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  14KB  |  77 lines
  1. 0 POKE45,209:POKE46,22:POKE51,181:POKE52,54:POKE55,181:POKE56,54:CLR
  2. 1 REM**********************************      * BASED ON THE ORIGINAL VIC-20   *
  3. 2 REM* PROGRAM 'SLITHER DEAREST' BY   *      * ROGER D. BURGE.  CONVERTED TO  *
  4. 3 REM* THE COMMODORE 64 BY ROGER D.   *      * BURGE, #2667                   *
  5. 4 REM* TORONTO PET USERS GROUP INC.,  *      * CANADA                         *
  6. 5 REM**********************************
  7. 8 PRINT"":R$="":POKE53272,31
  8. 10 DIMQ(100):Q(1)=RND(-TI):JS=14005:ZP=251:M=1177:DO=M:DR=-1:TA=3600:T1=31:GG=83
  9. 20 E=.:W=1:Z=W:A=6:N=A:BO=81:ME=90:H1=101:NI=19:DE=2:F1=41:K=53248+T1:TR=3:BS=32
  10. 21 T3=33:FI=5:SE=17:F0=40:DN=65:S=53248:POKE53269,.:POKES+28,.
  11. 22 D$="":POKES+16,.:SC=1024:C=54272:TW=20
  12. 23 POKE53280,.:POKE2040,222:POKES+29,.:POKES+23,.:POKES+39,7:GOSUB900:GOSUB12000
  13. 29 G$="[211]":F$=" "
  14. 30 GOTO40
  15. 35 POKES2,SE:E$=LEFT$(R$,INT(RND(W)*T1)+W)+LEFT$(D$,INT(RND(W)*TW)+W):PRINT"";E$"[211]"
  16. 36 PRINT" ":POKES2,.:RETURN
  17. 40 POKE53281,W:PRINT"[147]":POKE53281,.:E=.
  18. 41 P=.:DR=-W:A=6:N=A:PRINT"[159]                                        ";
  19. 42 PRINT"[146][152][214][214][214][214][214][214][214][214][214][214][214] SLITHER DEAREST! [152][146][214][214][214][214][214][214][214][214][214][214][214]"
  20. 45 H$="HIGH:"+STR$(HI):PRINT"[159]SCORE:"P:PRINT""SPC(F0-LEN(H$))H$
  21. 46 POKES,126:POKES+W,99
  22. 70 FORJ=SC+920TOSC+959:POKEJ,86:POKEJ+C,12:POKEJ+F0+C,TR:POKEJ+F0,160:NEXT
  23. 71 PRINT"[152][214]                                      [152][214]";
  24. 73 FORT=1TONI:PRINT"[214]                               [152][214]      [152][214]";:NEXT
  25. 84 PRINT "[159]ROGER D. BURGE
  26. 140 M[178]DO:[129]T[178]253[164]254:[151]T,[181]([187](W)[172]DE):[130]:[158]SY:[141]35
  27. 160 [151]M,ME:[151]781,42:[151]ZP,42:Q(W)[178]M:[151]S[170]21,W:T[178][194](S[170]T1):TI$[178]"000000"
  28. 180 [153]"OPEN"[166]NI)[201](TI$,DE):[158]JS:DR[178]F1[171][194](ZP):[139]TI[177]TA[167]620
  29. 182 [139][194](K)[167]E[178].:[153]""E$" ":[141]35
  30. 210 Q(A)[178]M[170]DR:[139][194](Q(A))[170]E[178]GG[167][151]S1,T3:E[178]W:P[178]P[170]W:N[178]N[170]W:[153]""P;G$:[137]260
  31. 215 [139]Q(A)[178]DO[175]E[167]P[178]P[170]FI:N[178]N[170]DE:[153]""P:E[178].:[141]35:[137]260
  32. 220 [139][194](Q(A))[179][177]BS[167][151]M,BO:[151]M[170]DR[170]C,10:[151]M[170]DR,DN:[137]600
  33. 260 Z[178]A[171]N:[139]Z[179].[167]Z[178]H1[170](A[171]N)
  34. 310 [151]Q(Z),BS:A[178](A[170]W)[172][171](A[170]W[179]H1)
  35. 350 [151]M,BO:[151]M[170]DR,ME:M[178]M[170]DR:[137]180
  36. 600 [153]"SYS GAME OVER! "
  37. 605 [151]S1,129:[129]T[178]15[164].[169][171]W:[151]S1[170]TW,T:[129]TT[178]W[164]100:[130]:[130]:[151]S1,.
  38. 610 [151]S1[170]TW,15:[151]S2,.:[137]650
  39. 620 [153]"SYS TIME'S UP! "
  40. 625 [129]T[178]W[164]FI:[151]S1,T3:[151]S2,T3:[129]TT[178]W[164]222:[130]:[151]S1,.:[151]S2,.:[130]
  41. 650 [158]SN:[153]"OPENSCORE:"P:[139]P[179][178]HI[167]670
  42. 660 [129]T[178]W[164]5:[151]S1,33:HI[178]P:H$[178]" HIGH:"[170][196](HI):[153]"SYS"[166]F0[171][195](H$))H$
  43. 665 [129]TT[178]W[164]125:[130]:[151]S1,.:[153]"OPEN"[166]F0[171][195](H$))H$:[129]TT[178]W[164]125:[130]:[130]
  44. 670 [151]198,.
  45. 680 TT[178](TT[170]W)[175]W:[151]646,TT[172]13:[153]" PUSH FIRE BUTTON TO PLAY OR F1 TO QUIT "
  46. 681 [161]A$:[139]A$[178]""[167][129]T[178]W[164]125[170]925[172]TT:[130]:[137]680
  47. 682 [139][198](A$)[178]160[167]40
  48. 683 [139][198](A$)[178]133[167]1000
  49. 684 [129]T[178]W[164]125:[130]:[137]680
  50. 900 SY[178]14181:SN[178]14194
  51. 950 SV[178]54272:[129]T[178]SV[164]SV[170]24:[151]T,.:[130]
  52. 960 [151]SV[170]24,15:[151]SV[170]5,17:[151]SV[170]6,17
  53. 970 [151]SV[170]1,37:[151]SV,162
  54. 975 [151]SV[170]12,17:[151]SV[170]13,17:[151]SV[170]8,28:[151]SV[170]7,.
  55. 980 S1[178]54276:S2[178]SV[170]11:[142]
  56. 1000 [129]T[178]1[164]666:[130]:[158]64738
  57. 12000 [151]53281,1:[153]"LOADSTOP            SLITHER(null)DEAREST!            ";
  58. 12010 [153]"WAIT            BY ROGER D BURGE"
  59. 12015 [153][166]6)"FORREQUIRES JOYSTICK IN PORT #1STOP
  60. 12020 PRINT"HELP MOMMY SLITHER THE WONDER SNAKE    FIND HER EGGS & RETURN ";
  61. 12025 PRINT"THEM TO HER NEST.";:PRINT"USE YOUR JOYSTICK TO MOVE HER OUT OF   ";
  62. 12030 PRINT"THE NEST (THE RECTANGLE ON THE RIGHT    SIDE OF THE SCREEN) AND ";
  63. 12035 PRINT"GUIDE HER TO HEREGGS. DON'T LET HER TOUCH THE WALLS OR  HERSELF OR";
  64. 12040 PRINT" IT'S GAME OVER!":PRINT"YOU GET 1 POINT FOR REACHING AN EGG AND";
  65. 12045 PRINT"YOUR BODY GROWS A NEW SEGMENT. RETURN TOTHE NEST WITH THE EGG AND";
  66. 12050 PRINT" GET 5 POINTS  AND 3 NEW BODY SEGMENTS.":PRINT" BUT WATCH OUT FOR THE ";
  67. 12055 PRINT"BIRD OF PREY TRY-ING TO STEAL THE EGGS. IF HE REACHES THEEGG FIRST";
  68. 12060 PRINT" YOU'LL HAVE TO WAIT FOR A NEW EGG TO APPEAR. IF THE BIRD TOUCHES ";
  69. 12065 PRINT" MOM-MY SLITHER THEN SHE LOSES THE EGG SHE ISCARRYING. ";
  70. 12070 PRINT"OCCASIONALLY HER TAIL WILL    SQUASH A NEW EGG INTO THE GROUND. ";
  71. 12075 PRINT"IF SHEHAS AN EGG ONE WILL SHOW AT THE TOP OF  THE SCREEN.
  72. 12080 [153]"STOP  YOU HAVE ONLY 60 SECONDS! GOOD LUCK!
  73. 12085 PRINT"[149] PRESS FIRE BUTTON TO PLAY! ":POKE198,.
  74. 12090 GETA$:IFA$=""THEN12090
  75. 12100 IFASC(A$)=160THENRETURN
  76. 12110 GOTO12090
  77.